0 CLR
5 REM COPYRIGHT 1993 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 POKE 53280,0
20 POKE 53281,0
30 POKE 646,5
100 TR=18:SE=1
110 PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
115 PRINT"[221]    ONDREJ BLAZEK'S DIRECTORY AID     [221]";
117 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
120 PRINT"  TRK  SEC      FILENAME        STATUS"
150 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
160 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
180 PRINT"H...HIDE FILE (NOT IN DIRECTORY)
185 [153]"L...LOCK FILE (SCRATCH PROOF)"
187 [153]"S...SPLAT  FILE (UNUSABLE FORMAT)"
188 [153]"N...NORMAL FILE (RETURN TO NORMAL)"
199 [153]""
300 V$[178]""
330 [159] 15,8,15
340 [159] 5,8,5,"#"
350 [152]15,"U1:"5;0;TR;SE
355 [132]15,E,E$,ET,ES
360 B$[178]"":[161]#5,X$:[139] X$[178]"" [167] X$[178][199](0)
365 [129]L[178]1[164]255
380 [161]#5,A$
390 [139] A$[179][177]""[167] V$[178]V$[170]A$
395 [139] A$[178]""[167] V$[178]V$[170][199](0)
400 [130]:NA[178]0
410 [129]T[178](3[171]1) [164] (255[171]1)[169] 32
415 NA[178]NA[170]1
420 C(NA)[178][198]([202](V$,T,1)):T(NA)[178][198]([202](V$,T[170]1,1)):S(NA)[178][198]([202](V$,T[170]2,1))
425 F$(NA)[178][202](V$,T[170]3,16)
427 C(X)[178](C(X)[175]3)[170](C(X)[175]4)
430 [130]
440 [129]T[178]1 [164] 8:[139] T(T)[178]0 [175] S(T)[178]0 [167] 450
441 [153] "  " T(T):[153]"ON"S(T)
442 [153]"ON"[163]12)""[199](34);:[151]646,5:[153]F$(T);:[151]646,2:[153][199](34)
443 [153]"ON"[163]32);
445 [141] 1000:[153]""C$
450 [130]:[153]
460 [160] 5:[160] 15:[137] 5005
1000 [139] C(T)[178]0 [167] C$[178]"HIDDEN":[142]
1010 [139] C(T)[179]128 [167] C$[178]"SPLAT":[142]
1020 [139] C(T)[179]135 [167] C$[178]"NORMAL":[142]
1030 [139] C(T)[177]191 [167] C$[178]"LOCKED":[142]
1040 C$[178]"???":[142]
5005 [153]:[159] 15,8,15
5010 [159] 5,8,5,"#"
5020 [129] A[178]1 [164] 255
5025 [139] A[178]2 [176] (A[171]2)[173]32[178][181]((A[171]2)[173]32)[167] [141] 5100:[137] 5050
5030 [152]5,[202](V$,A,1);
5050 [130]
5055 [152]5,X$;
5060 [152]15,"U2:";5;0;TR;SE
5070 [160] 5:[160] 15
5080 SE[178][198]([202](V$,1,1)):[139] SE[177]20 [167] [153]"LOAD";:[137] 5500
5090 [137] 110
5100 X[178][181](A[173]32)[170]1
5107 C(X)[178](C(X)[175]3)[170](C(X)[175]4)
5109 [139] T(X)[178]0 [175] S(X)[178]0 [167] A$[178]"H":[137] 5141
5110 [153]"";[199](34)"                "[199](34)
5120 [153]""F$(X);"(H/N/L/S)?"
5140 [161] A$:[139] A$[178]"" [167] 5140
5141 [139] T(X)[177]0 [167] [153]"ON                                     ":[153]"ON";
5150 [139] A$[178]"H" [167] Q$[178][199](0)
5155 [139] A$[179][177]"H" [175] C(X)[178]0 [167] [141] 5300
5157 [139] A$[179][177]"H" [167] Q$[178][199](C(X)[170]128)
5160 [139] A$[178]"L" [167] C(X)[178]C(X)[170]192:Q$[178][199](C(X))
5170 [139] A$[178]"S" [167] C(X)[178]C(X)[170]32:Q$[178][199](C(X))
5180 [152]5,Q$;
5190 [142]
5300 [153]"1...SEQ 2...PRG 3...REL 4...USR"
5310 [161] A$:[139] [197](A$)[179]1 [176] [197](A$)[177]4 [167] 5310
5320 C(X)[178][197](A$)
5330 [153]"ON                                      ":[153]"ON";
5340 [142]
5500 [153]"LOAD";:[141] 9000
5505 [139] E [167] [153]"LOADDISK ERROR:"E;E$;T;S:[153]""
5507 [153]"WARNING:"
5510 [153]"IF ANY FILES ARE HIDDEN, DO NOT USE"
5520 [153]"THE DISK VALIDATE COMMAND, OR ADD"
5530 [153]"ANY OTHER FILES TO THE DISK."
5540 [153]"TO ADD FILES TO THIS DISK, UNHIDE"
5550 [153]"ALL FILES BEFORE SAVING."
5560 [153]"?FILES ALTERED";:[128]
9000 [159] 15,8,15:[132]15,E,E$,T,S:[160] 15:[142]